home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 36 / 036.d81 / subliminal msg (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  75 lines
  1. 0 sys65418:poke648,4:poke53272,21:poke56576,199
  2. 5 ifa=.thena=1:load"subliminal.ml",8,1
  3. 10 gosub60100:clr:printchr$(142);
  4. 20 print"[147]          subliminal messenger"
  5. 110 rem set colors, timing, and message
  6. 120 print"enter screen color for message:   [157][157][157]";:de$=str$(peek(53281)and15)
  7. 130 nc=3:sb=len(de$):gosub60500:n=val(a$)
  8. 135 ifn>255ora$=""thenprint"[145][145]";:goto120
  9. 140 poke49362,n
  10. 150 print"enter border color for message:   [157][157][157]";:de$=str$(peek(53280)and15)
  11. 160 sb=len(de$):gosub60500:n=val(a$)
  12. 165 ifn>255ora$=""thenprint"[145]";:goto150
  13. 170 poke49363,n
  14. 180 print"enter text color for message:   [157][157][157]";:de$=str$(peek(646)and15)
  15. 190 sb=len(de$):gosub60500:n=val(a$)
  16. 195 ifn>255ora$=""thenprint"[145]";:goto180
  17. 200 poke49364,n
  18. 205 print"how often should the message blink?"
  19. 210 print"(in sixtieths of a second -- 1-255)":print"--->   [157][157][157]";
  20. 220 de$=" 60":sb=3:gosub60500:n=val(a$)
  21. 225 ifn>255ora$=""thenprint"[145][145]";:goto210
  22. 227 poke49365,n
  23. 228 print"every time the message blinks, how long"
  24. 229 print"should it be displayed on the screen?"
  25. 230 print"(in sixtieths of a second -- 1-255)"
  26. 240 print"-->   [157][157][157]";:de$=" 5":sb=2:gosub60500:n=val(a$)
  27. 243 ifn>255ora$=""thenprint"[145]";:goto240
  28. 245 poke49366,n
  29. 247 print"what is the message you'd like to have"
  30. 250 print"displayed?      (max. 38 characters)"
  31. 255 nc=38:mm=1:de$="":sb=1:gosub60500
  32. 260 te$=a$
  33. 270 poke648,160:printchr$(147);:forx=1to12:printchr$(17);:next
  34. 280 forx=1to20-len(text$)/2:printchr$(32);:next:printtext$
  35. 290 poke648,4
  36. 340 sys49152
  37. 350 print"      press space to exit to basic"
  38. 360 print"   press return to return to loadstar"
  39. 370 a=peek(203):ifa=1then60000
  40. 380 ifa=60thenend
  41. 390 goto370
  42. 999 stop
  43. 60000 sys65418:open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  44. 60010 print"[147]";:ifer<>63thenend
  45. 60015 sys65418:poke648,4:poke53272,21:poke56576,199
  46. 60020 load"hello connect",8
  47. 60100 poke53280,7:poke53281,7
  48. 60110 print"[147][144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  49. 60120 fora=1to23:print"[221]"spc(38)"[221]";:next
  50. 60130 fora=217to242:pokea,peek(a)or128:next
  51. 60140 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
  52. 60150 print"[149]          [204][207][193][196][211][212][193][210] [208]resents:"
  53. 60160 print"                               [146]"
  54. 60170 print"         [211]ubliminal  [205]essenger [129] [146]"
  55. 60180 print"                               [129] [146]"
  56. 60190 print"           [194]y:  [200]arold [196]roid   [129] [146]"
  57. 60200 print"                               [129] [146]"
  58. 60210 print"           ([195])opyright  1987   [129] [146]"
  59. 60220 print"                               [129] [146]"
  60. 60230 print"         [129]                       [146]"
  61. 60240 print"[149]        [208]ress [211][208][193][195][197] to continue.":poke198,.
  62. 60250 geta$:ifa$<>" "then60250
  63. 60260 return
  64. 60500 printright$(de$,sb-1)"[164]";:a$=de$:fora=sbtonc+1
  65. 60510 getb$:ifb$=""then60510
  66. 60520 ifb$=chr$(13)then60580
  67. 60530 ifb$=chr$(20)anda>1thena=a-1:print"[157][157]  [157][157][164]";:a$=left$(a$,a-1):goto60510
  68. 60535 ifa=nc+1then60510
  69. 60537 ifb$>="[193]"andb$<="[218]"thenb$=chr$(asc(b$)-128)
  70. 60540 ifb$>="0"andb$<="9"then60570
  71. 60550 if(mm)andb$>=" "andb$<="z"then60570
  72. 60560 goto60510
  73. 60570 print"[157]"b$;:poke212,.:print"[164]";:a$=a$+b$:next
  74. 60580 print"[157] ":return
  75.